home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet multimedia / Grafika i zdjecia / Edytory grafiki rastrowej i wektorowej / Inscape 0.44.1 / Inkscape-0.44.1-1.win32.exe / share / extensions / txt2svg.pl < prev    next >
Perl Script  |  2006-09-06  |  649b  |  34 lines
  1. #!/usr/bin/perl
  2.  
  3. # This is a script to render a plain text file into SVG, line by line.
  4.  
  5. use strict;
  6. use SVG;
  7. use vars qw($VERSION);
  8. $VERSION = '1.00';
  9.  
  10. my $svg = new SVG;
  11.  
  12. $svg->comment('Generated by txt2svg');
  13.  
  14. my $i=0;
  15. while (<>) {
  16.     chomp($_);
  17.     s/\t/    /g;        # Convert tabs into spaces, otherwise we get errors about invalid char
  18.  
  19.     my $text = $svg->text(id    => "text_line_$i",
  20.               x     => 10,
  21.               y     => 12*(1+$i),
  22.               'xml:space' => 'preserve',
  23.               style => { 'font' => 'Courier', 
  24.                      'font-family' => 'Courier 10 pitch', 
  25.                      'font-size' => 10,
  26.                  }
  27.               )
  28.     ->cdata($_);
  29.     $i++;
  30. }
  31.  
  32. print $svg->xmlify();
  33.  
  34.